home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Utilities / MathScript / MSExtras / QuickCode / QC / QC_Prefs.gc < prev    next >
Encoding:
MathScript QuickCode script  |  1997-02-09  |  28.2 KB  |  1,319 lines
  1. G4C
  2.  
  3. ;
  4. ; QuickCode Prefs V1.6
  5. ;
  6. ; Prefs GUI for QuickCode
  7. ;
  8. ;
  9. ; Chris Coulson
  10. ;
  11. ; 28.12.96
  12. ; 31.12.96 - First batch of icons done
  13. ; 05.01.97 - All icons done, button selection done.
  14. ; 06.01.97 - Fixed graphics glitch on startup, and removed incorrect bank
  15. ;            selection bug on re-entry.
  16. ; 08.01.97 - Updates icon bar on exit.
  17. ; 09.01.97 - Version 1.0
  18. ;            Removed icon 14/13, since it doesn't actually have a code...
  19. ;            Removed slider, we now select a bank via the bank icons, that
  20. ;            look not entirely unlike the ones in Mathscript :-)
  21. ; 10.01.97 - Shortened code a bit
  22. ; 13.01.97 - Version 1.1
  23. ;            Version number bumped to correspond with QuickCode.rexx
  24. ; 17.01.97 - Wierd bug reported by Simon Ihmig.  I've only managed to replicate
  25. ;            it once, and I can't figure out why it happened...  So I've added
  26. ;            what seems to be the only possible fix, given the nature of the bug.
  27. ; 18.01.97 - Version 1.2
  28. ;            Added MxN matrix
  29. ; 21.01.97 - Version 1.3
  30. ;            Added new codes from Mathscript 3.1
  31. ; 25.01.97 - Version 1.4
  32. ;            Revised variable names to make them unique to Quickcode.
  33. ; 28.01.97 - Version 1.5
  34. ;            Now, finally (oh yeah :-), *that* bug is gone...
  35. ; 09.02.97 - Version 1.6
  36. ;            Removed all the absolute references to files, everything is now
  37. ;            relative to wherever the QC directory is installed.
  38. ;            Added option for quitting Gui4CLI when QuickCode is closed, for
  39. ;            people who aren't run any other Gui4CLI scripts.
  40. ;
  41.  
  42. WinBig 0 0 200 240 "QuickCode Prefs 1.6"
  43. WinOnWin quickcode.gc 0 0
  44. WinType 10000000
  45.  
  46. NoFontSense
  47. UseTopaz
  48.  
  49. xOnClose
  50.     DelVar .qcprefs
  51.     SetVar .qcprefs "$qcicon0 "
  52.     AppVar .qcprefs "$qcicon1 "
  53.     AppVar .qcprefs "$qcicon2 "
  54.     AppVar .qcprefs "$qcicon3 "
  55.     AppVar .qcprefs "$qcicon4 "
  56.     AppVar .qcprefs "$qcicon5 "
  57.     AppVar .qcprefs "$qcicon6 "
  58.     AppVar .qcprefs "$qcicon7 "
  59.     AppVar .qcprefs "$qcicon8 "
  60.     AppVar .qcprefs "$qcicon9 "
  61.     AppVar .qcprefs "$qc_screen "
  62.     AppVar .qcprefs "$qc_guiquit "
  63.     Copy "env:.qcprefs" "envarc:"
  64.     SendRexx quickcode "PREFS"
  65.     GoSub quickcode.gc ChangeButtons
  66.     GuiClose QC_Prefs.gc
  67.  
  68.  
  69. xOnOpen
  70.     ChangeIcon qc_prefs.gc 1 -1 -1 ":icons/b$qcicon0"
  71.     ChangeIcon qc_prefs.gc 2 -1 -1 ":icons/b$qcicon1"
  72.     ChangeIcon qc_prefs.gc 3 -1 -1 ":icons/b$qcicon2"
  73.     ChangeIcon qc_prefs.gc 4 -1 -1 ":icons/b$qcicon3"
  74.     ChangeIcon qc_prefs.gc 5 -1 -1 ":icons/b$qcicon4"
  75.     ChangeIcon qc_prefs.gc 6 -1 -1 ":icons/b$qcicon5"
  76.     ChangeIcon qc_prefs.gc 7 -1 -1 ":icons/b$qcicon6"
  77.     ChangeIcon qc_prefs.gc 8 -1 -1 ":icons/b$qcicon7"
  78.     ChangeIcon qc_prefs.gc 9 -1 -1 ":icons/b$qcicon8"
  79.     ChangeIcon qc_prefs.gc 10 -1 -1 ":icons/b$qcicon9"
  80.     Update qc_prefs.gc 300 $qc_guiquit
  81.     GoSub qc_prefs.gc DrawBank
  82.  
  83.  
  84. xCheckBox 180 220 16 16 "Quit Gui4CLI on close" qc_guiquit "1" "0" OFF
  85. GadID 300
  86.  
  87. Square 0 19 16 3 3 Fill
  88. GadID 101
  89. Square 20 19 16 3 3 NoFill
  90. GadID 102
  91. Square 40 19 16 3 3 NoFill
  92. GadID 103
  93. Square 60 19 16 3 3 NoFill
  94. GadID 104
  95. Square 80 19 16 3 3 NoFill
  96. GadID 105
  97. Square 100 19 16 3 3 NoFill
  98. GadID 106
  99. Square 120 19 16 3 3 NoFill
  100. GadID 107
  101. Square 140 19 16 3 3 NoFill
  102. GadID 108
  103. Square 160 19 16 3 3 NoFill
  104. GadID 109
  105. Square 180 19 16 3 3 NoFill
  106. GadID 110
  107.  
  108. Box 3 44 69 163 Out Button
  109.  
  110. xIcon 5 45 ":icons/blank"
  111.     GadID 211
  112.     DoCase $qcp_Bank
  113.         Case = 1
  114.             qcp_Cmd = "1/1"
  115.             Break
  116.         Case = 2
  117.             qcp_Cmd = "2/1"
  118.             Break
  119.         Case = 3
  120.             qcp_Cmd = "3/1"
  121.             Break
  122.         Case = 4
  123.             qcp_Cmd = "4/1"
  124.             Break
  125.         Case = 5
  126.             qcp_Cmd = "5/1"
  127.             Break
  128.         Case = 6
  129.             qcp_Cmd = "6/1"
  130.             Break
  131.         Case = 7
  132.             qcp_Cmd = "7/1"
  133.             Break
  134.         Case = 8
  135.             qcp_Cmd = "8/1"
  136.             Break
  137.         Case = 9
  138.             qcp_Cmd = "9/1"
  139.             Break
  140.         Case = 10
  141.             qcp_Cmd = "10/1"
  142.             Break
  143.         Case = 11
  144.             qcp_Cmd = "11/1"
  145.             Break
  146.         Case = 12
  147.             qcp_Cmd = "12/1"
  148.             Break
  149.         Case = 13
  150.             qcp_Cmd = "13/1"
  151.             Break
  152.         Case = 14
  153.             qcp_Cmd = "14/1"
  154.             Break
  155.     EndCase
  156.     GoSub qc_prefs.gc UpdateButtons
  157.         
  158. xIcon 21 45 ":icons/blank"
  159.     GadID 212
  160.     qcp_Cmd = "lank"
  161.     DoCase $qcp_Bank
  162.         Case = 1
  163.             qcp_Cmd = "1/2"
  164.             Break
  165.         Case = 2
  166.             qcp_Cmd = "2/2"
  167.             Break
  168.         Case = 3
  169.             qcp_Cmd = "3/2"
  170.             Break
  171.         Case = 4
  172.             qcp_Cmd = "4/2"
  173.             Break
  174.         Case = 5
  175.             qcp_Cmd = "5/2"
  176.             Break
  177.         Case = 6
  178.             qcp_Cmd = "6/2"
  179.             Break
  180.         Case = 7
  181.             qcp_Cmd = "7/2"
  182.             Break
  183.         Case = 8
  184.             qcp_Cmd = "8/2"
  185.             Break
  186.         Case = 9
  187.             qcp_Cmd = "9/2"
  188.             Break
  189.         Case = 10
  190.             qcp_Cmd = "10/2"
  191.             Break
  192.         Case = 11
  193.             qcp_Cmd = "11/2"
  194.             Break
  195.         Case = 13
  196.             qcp_Cmd = "13/2"
  197.             Break
  198.         Case = 14
  199.             qcp_Cmd = "14/2"
  200.             Break
  201.     EndCase
  202.     GoSub qc_prefs.gc UpdateButtons
  203.  
  204. xIcon 37 45 ":icons/blank"
  205.     GadID 213
  206.     qcp_Cmd = "lank"
  207.     DoCase $qcp_Bank
  208.         Case = 1
  209.             qcp_Cmd = "1/3"
  210.             Break
  211.         Case = 4
  212.             qcp_Cmd = "4/3"
  213.             Break
  214.         Case = 6
  215.             qcp_Cmd = "6/3"
  216.             Break
  217.         Case = 7
  218.             qcp_Cmd = "7/3"
  219.             Break
  220.         Case = 11
  221.             qcp_Cmd = "11/3"
  222.             Break
  223.         Case = 13
  224.             qcp_Cmd = "13/3"
  225.             Break
  226.         Case = 14
  227.             qcp_Cmd = "14/3"
  228.             Break
  229.     EndCase
  230.     GoSub qc_prefs.gc UpdateButtons
  231.  
  232. xIcon 53 45 ":icons/blank"
  233.     GadID 214
  234.     qcp_Cmd = "lank"
  235.     DoCase $qcp_Bank
  236.         Case = 14
  237.             qcp_Cmd = "14/4"
  238.             Break
  239.     EndCase
  240.     GoSub qc_prefs.gc UpdateButtons
  241.  
  242. xIcon 5 61 ":icons/blank"
  243.     GadID 221
  244.     DoCase $qcp_Bank
  245.         Case = 1
  246.             qcp_Cmd = "1/4"
  247.             Break
  248.         Case = 2
  249.             qcp_Cmd = "2/3"
  250.             Break
  251.         Case = 3
  252.             qcp_Cmd = "3/3"
  253.             Break
  254.         Case = 4
  255.             qcp_Cmd = "4/4"
  256.             Break
  257.         Case = 5
  258.             qcp_Cmd = "5/3"
  259.             Break
  260.         Case = 6
  261.             qcp_Cmd = "6/4"
  262.             Break
  263.         Case = 7
  264.             qcp_Cmd = "7/4"
  265.             Break
  266.         Case = 8
  267.             qcp_Cmd = "8/3"
  268.             Break
  269.         Case = 9
  270.             qcp_Cmd = "9/3"
  271.             Break
  272.         Case = 10
  273.             qcp_Cmd = "10/3"
  274.             Break
  275.         Case = 11
  276.             qcp_Cmd = "11/4"
  277.             Break
  278.         Case = 12
  279.             qcp_Cmd = "12/2"
  280.             Break
  281.         Case = 13
  282.             qcp_Cmd = "13/4"
  283.             Break
  284.         Case = 14
  285.             qcp_Cmd = "14/5"
  286.             Break
  287.     EndCase
  288.     GoSub qc_prefs.gc UpdateButtons
  289.  
  290. xIcon 21 61 ":icons/blank"
  291.     GadID 222
  292.     qcp_Cmd = "lank"
  293.     DoCase $qcp_Bank
  294.         Case = 1
  295.             qcp_Cmd = "1/5"
  296.             Break
  297.         Case = 2
  298.             qcp_Cmd = "2/4"
  299.             Break
  300.         Case = 3
  301.             qcp_Cmd = "3/4"
  302.             Break
  303.         Case = 4
  304.             qcp_Cmd = "4/5"
  305.             Break
  306.         Case = 5
  307.             qcp_Cmd = "5/4"
  308.             Break
  309.         Case = 6
  310.             qcp_Cmd = "6/5"
  311.             Break
  312.         Case = 7
  313.             qcp_Cmd = "7/5"
  314.             Break
  315.         Case = 8
  316.             qcp_Cmd = "8/4"
  317.             Break
  318.         Case = 9
  319.             qcp_Cmd = "9/4"
  320.             Break
  321.         Case = 10
  322.             qcp_Cmd = "10/4"
  323.             Break
  324.         Case = 11
  325.             qcp_Cmd = "11/5"
  326.             Break
  327.         Case = 13
  328.             qcp_Cmd = "13/5"
  329.             Break
  330.         Case = 14
  331.             qcp_Cmd = "14/6"
  332.             Break
  333.     EndCase
  334.     GoSub qc_prefs.gc UpdateButtons
  335.  
  336. xIcon 37 61 ":icons/blank"
  337.     GadID 223
  338.     qcp_Cmd = "lank"
  339.     DoCase $qcp_Bank
  340.         Case = 1
  341.             qcp_Cmd = "1/6"
  342.             Break
  343.         Case = 4
  344.             qcp_Cmd = "4/6"
  345.             Break
  346.         Case = 6
  347.             qcp_Cmd = "6/6"
  348.             Break
  349.         Case = 7
  350.             qcp_Cmd = "7/6"
  351.             Break
  352.         Case = 11
  353.             qcp_Cmd = "11/6"
  354.             Break
  355.         Case = 13
  356.             qcp_Cmd = "13/6"
  357.             Break
  358.         Case = 14
  359.             qcp_Cmd = "14/7"
  360.             Break
  361.     EndCase
  362.     GoSub qc_prefs.gc UpdateButtons
  363.  
  364. xIcon 53 61 ":icons/blank"
  365.     GadID 224
  366.     qcp_Cmd = "lank"
  367.     DoCase $qcp_Bank
  368.         Case = 14
  369.             qcp_Cmd = "14/8"
  370.             Break
  371.     EndCase
  372.     GoSub qc_prefs.gc UpdateButtons
  373.  
  374. xIcon 5 77 ":icons/blank"
  375.     GadID 231
  376.     qcp_Cmd = "lank"
  377.     DoCase $qcp_Bank
  378.         Case = 1
  379.             qcp_Cmd = "1/7"
  380.             Break
  381.         Case = 2
  382.             qcp_Cmd = "2/5"
  383.             Break
  384.         Case = 3
  385.             qcp_Cmd = "3/5"
  386.             Break
  387.         Case = 4
  388.             qcp_Cmd = "4/7"
  389.             Break
  390.         Case = 5
  391.             qcp_Cmd = "5/5"
  392.             Break
  393.         Case = 6
  394.             qcp_Cmd = "6/7"
  395.             Break
  396.         Case = 7
  397.             qcp_Cmd = "7/7"
  398.             Break
  399.         Case = 8
  400.             qcp_Cmd = "8/5"
  401.             Break
  402.         Case = 9
  403.             qcp_Cmd = "9/5"
  404.             Break
  405.         Case = 10
  406.             qcp_Cmd = "10/5"
  407.             Break
  408.         Case = 12
  409.             qcp_Cmd = "12/3"
  410.             Break
  411.         Case = 13
  412.             qcp_Cmd = "13/7"
  413.             Break
  414.         Case = 14
  415.             qcp_Cmd = "14/9"
  416.             Break
  417.     EndCase
  418.     GoSub qc_prefs.gc UpdateButtons
  419.  
  420. xIcon 21 77 ":icons/blank"
  421.     GadID 232
  422.     qcp_Cmd = "lank"
  423.     DoCase $qcp_Bank
  424.         Case = 1
  425.             qcp_Cmd = "1/8"
  426.             Break
  427.         Case = 2
  428.             qcp_Cmd = "2/6"
  429.             Break
  430.         Case = 3
  431.             qcp_Cmd = "3/6"
  432.             Break
  433.         Case = 4
  434.             qcp_Cmd = "4/8"
  435.             Break
  436.         Case = 5
  437.             qcp_Cmd = "5/6"
  438.             Break
  439.         Case = 6
  440.             qcp_Cmd = "6/8"
  441.             Break
  442.         Case = 7
  443.             qcp_Cmd = "7/8"
  444.             Break
  445.         Case = 8
  446.             qcp_Cmd = "8/6"
  447.             Break
  448.         Case = 9
  449.             qcp_Cmd = "9/6"
  450.             Break
  451.         Case = 10
  452.             qcp_Cmd = "10/6"
  453.             Break
  454.         Case = 13
  455.             qcp_Cmd = "13/8"
  456.             Break
  457.         Case = 14
  458.             qcp_Cmd = "14/10"
  459.             Break
  460.     EndCase
  461.     GoSub qc_prefs.gc UpdateButtons
  462.  
  463. xIcon 37 77 ":icons/blank"
  464.     GadID 233
  465.     qcp_Cmd = "lank"
  466.     DoCase $qcp_Bank
  467.         Case = 1
  468.             qcp_Cmd = "1/9"
  469.             Break
  470.         Case = 4
  471.             qcp_Cmd = "4/9"
  472.             Break
  473.         Case = 6
  474.             qcp_Cmd = "6/9"
  475.             Break
  476.         Case = 7
  477.             qcp_Cmd = "7/9"
  478.             Break
  479.         Case = 13
  480.             qcp_Cmd = "13/9"
  481.             Break
  482.         Case = 14
  483.             qcp_Cmd = "14/11"
  484.             Break
  485.     EndCase
  486.     GoSub qc_prefs.gc UpdateButtons
  487.  
  488. xIcon 53 77 ":icons/blank"
  489.     GadID 234
  490.     qcp_Cmd = "lank"
  491.     DoCase $qcp_Bank
  492.         Case = 14
  493.             qcp_Cmd = "14/12"
  494.             Break
  495.     EndCase
  496.     GoSub qc_prefs.gc UpdateButtons
  497.  
  498. xIcon 5 93 ":icons/blank"
  499.     GadID 241
  500.     qcp_Cmd = "lank"
  501.     DoCase $qcp_Bank
  502.         Case = 2
  503.             qcp_Cmd = "2/7"
  504.             Break
  505.         Case = 3
  506.             qcp_Cmd = "3/7"
  507.             Break
  508.         Case = 4
  509.             qcp_Cmd = "4/10"
  510.             Break
  511.         Case = 6
  512.             qcp_Cmd = "6/10"
  513.             Break
  514.         Case = 7
  515.             qcp_Cmd = "7/10"
  516.             Break
  517.         Case = 8
  518.             qcp_Cmd = "8/7"
  519.             Break
  520.         Case = 9
  521.             qcp_Cmd = "9/7"
  522.             Break
  523.         Case = 10
  524.             qcp_Cmd = "10/7"
  525.             Break
  526.         Case = 13
  527.             qcp_Cmd = "13/10"
  528.             Break
  529.         Case = 14
  530.             qcp_Cmd = "14/13"
  531.             Break
  532.     EndCase
  533.     GoSub qc_prefs.gc UpdateButtons
  534.  
  535. xIcon 21 93 ":icons/blank"
  536.     GadID 242
  537.     qcp_Cmd = "lank"
  538.     DoCase $qcp_Bank
  539.         Case = 2
  540.             qcp_Cmd = "2/8"
  541.             Break
  542.         Case = 4
  543.             qcp_Cmd = "4/11"
  544.             Break
  545.         Case = 6
  546.             qcp_Cmd = "6/11"
  547.             Break
  548.         Case = 7
  549.             qcp_Cmd = "7/11"
  550.             Break
  551.         Case = 8
  552.             qcp_Cmd = "8/8"
  553.             Break
  554.         Case = 9
  555.             qcp_Cmd = "9/8"
  556.             Break
  557.         Case = 10
  558.             qcp_Cmd = "10/8"
  559.             Break
  560.         Case = 13
  561.             qcp_Cmd = "13/11"
  562.             Break
  563.     EndCase
  564.     GoSub qc_prefs.gc UpdateButtons
  565.  
  566. xIcon 37 93 ":icons/blank"
  567.     GadID 243
  568.     qcp_Cmd = "lank"
  569.     DoCase $qcp_Bank
  570.         Case = 4
  571.             qcp_Cmd = "4/12"
  572.             Break
  573.         Case = 6
  574.             qcp_Cmd = "6/12"
  575.             Break
  576.         Case = 7
  577.             qcp_Cmd = "7/12"
  578.             Break
  579.         Case = 13
  580.             qcp_Cmd = "13/12"
  581.             Break
  582.     EndCase
  583.     GoSub qc_prefs.gc UpdateButtons
  584.  
  585. xIcon 53 93 ":icons/blank"
  586.     GadID 244
  587.     qcp_Cmd = "lank"
  588.     GoSub qc_prefs.gc UpdateButtons
  589.  
  590. xIcon 5 109 ":icons/blank"
  591.     GadID 251
  592.     qcp_Cmd = "lank"
  593.     DoCase $qcp_Bank
  594.         Case = 2
  595.             qcp_Cmd = "2/9"
  596.             Break
  597.         Case = 4
  598.             qcp_Cmd = "4/13"
  599.             Break
  600.         Case = 6
  601.             qcp_Cmd = "6/13"
  602.             Break
  603.         Case = 7
  604.             qcp_Cmd = "7/13"
  605.             Break
  606.         Case = 8
  607.             qcp_Cmd = "8/9"
  608.             Break
  609.         Case = 9
  610.             qcp_Cmd = "9/9"
  611.             Break
  612.         Case = 10
  613.             qcp_Cmd = "10/9"
  614.             Break
  615.         Case = 13
  616.             qcp_Cmd = "13/13"
  617.             Break
  618.     EndCase
  619.     GoSub qc_prefs.gc UpdateButtons
  620.  
  621. xIcon 21 109 ":icons/blank"
  622.     GadID 252
  623.     qcp_Cmd = "lank"
  624.     DoCase $qcp_Bank
  625.         Case = 2
  626.             qcp_Cmd = "2/10"
  627.             Break
  628.         Case = 4
  629.             qcp_Cmd = "4/14"
  630.             Break
  631.         Case = 6
  632.             qcp_Cmd = "6/14"
  633.             Break
  634.         Case = 7
  635.             qcp_Cmd = "7/14"
  636.             Break
  637.         Case = 8
  638.             qcp_Cmd = "8/10"
  639.             Break
  640.         Case = 9
  641.             qcp_Cmd = "9/10"
  642.             Break
  643.         Case = 10
  644.             qcp_Cmd = "10/10"
  645.             Break
  646.         Case = 13
  647.             qcp_Cmd = "13/14"
  648.             Break
  649.     EndCase
  650.     GoSub qc_prefs.gc UpdateButtons
  651.  
  652. xIcon 37 109 ":icons/blank"
  653.     GadID 253
  654.     qcp_Cmd = "lank"
  655.     DoCase $qcp_Bank
  656.         Case = 4
  657.             qcp_Cmd = "4/15"
  658.             Break
  659.         Case = 6
  660.             qcp_Cmd = "6/15"
  661.             Break
  662.         Case = 7
  663.             qcp_Cmd = "7/15"
  664.             Break
  665.         Case = 13
  666.             qcp_Cmd = "13/15"
  667.             Break
  668.     EndCase
  669.     GoSub qc_prefs.gc UpdateButtons
  670.  
  671. xIcon 53 109 ":icons/blank"
  672.     GadID 254
  673.     qcp_Cmd = "lank"
  674.     GoSub qc_prefs.gc UpdateButtons
  675.  
  676. xIcon 5 125 ":icons/blank"
  677.     GadID 261
  678.     qcp_Cmd = "lank"
  679.     DoCase $qcp_Bank
  680.         Case = 4
  681.             qcp_Cmd = "4/16"
  682.             Break
  683.         Case = 6
  684.             qcp_Cmd = "6/16"
  685.             Break
  686.         Case = 7
  687.             qcp_Cmd = "7/16"
  688.             Break
  689.         Case = 10
  690.             qcp_Cmd = "10/11"
  691.             Break
  692.         Case = 13
  693.             qcp_Cmd = "13/16"
  694.             Break
  695.     EndCase
  696.     GoSub qc_prefs.gc UpdateButtons
  697.  
  698. xIcon 21 125 ":icons/blank"
  699.     GadID 262
  700.     qcp_Cmd = "lank"
  701.     DoCase $qcp_Bank
  702.         Case = 4
  703.             qcp_Cmd = "4/17"
  704.             Break
  705.         Case = 6
  706.             qcp_Cmd = "6/17"
  707.             Break
  708.         Case = 7
  709.             qcp_Cmd = "7/17"
  710.             Break
  711.         Case = 13
  712.             qcp_Cmd = "13/17"
  713.             Break
  714.     EndCase
  715.     GoSub qc_prefs.gc UpdateButtons
  716.  
  717. xIcon 37 125 ":icons/blank"
  718.     GadID 263
  719.     qcp_Cmd = "lank"
  720.     DoCase $qcp_Bank
  721.         Case = 4
  722.             qcp_Cmd = "4/18"
  723.             Break
  724.         Case = 6
  725.             qcp_Cmd = "6/18"
  726.             Break
  727.         Case = 7
  728.             qcp_Cmd = "7/18"
  729.             Break
  730.     EndCase
  731.     GoSub qc_prefs.gc UpdateButtons
  732.  
  733. xIcon 53 125 ":icons/blank"
  734.     GadID 264
  735.     qcp_Cmd = "lank"
  736.     GoSub qc_prefs.gc UpdateButtons
  737.  
  738. xIcon 5 141 ":icons/blank"
  739.     GadID 271
  740.     qcp_Cmd = "lank"
  741.     DoCase $qcp_Bank
  742.         Case = 4
  743.             qcp_Cmd = "4/19"
  744.             Break
  745.         Case = 6
  746.             qcp_Cmd = "6/19"
  747.             Break
  748.         Case = 7
  749.             qcp_Cmd = "7/19"
  750.             Break
  751.     EndCase
  752.     GoSub qc_prefs.gc UpdateButtons
  753.  
  754. xIcon 21 141 ":icons/blank"
  755.     GadID 272
  756.     qcp_Cmd = "lank"
  757.     DoCase $qcp_Bank
  758.         Case = 4
  759.             qcp_Cmd = "4/20"
  760.             Break
  761.         Case = 6
  762.             qcp_Cmd = "6/20"
  763.             Break
  764.         Case = 7
  765.             qcp_Cmd = "7/20"
  766.             Break
  767.     EndCase
  768.     GoSub qc_prefs.gc UpdateButtons
  769.  
  770. xIcon 37 141 ":icons/blank"
  771.     GadID 273
  772.     qcp_Cmd = "lank"
  773.     DoCase $qcp_Bank
  774.         Case = 6
  775.             qcp_Cmd = "6/21"
  776.             Break
  777.         Case = 7
  778.             qcp_Cmd = "7/21"
  779.             Break
  780.     EndCase
  781.     GoSub qc_prefs.gc UpdateButtons
  782.  
  783. xIcon 53 141 ":icons/blank"
  784.     GadID 274
  785.     qcp_Cmd = "lank"
  786.     GoSub qc_prefs.gc UpdateButtons
  787.  
  788. xIcon 5 157 ":icons/blank"
  789.     GadID 281
  790.     qcp_Cmd = "lank"
  791.     DoCase $qcp_Bank
  792.         Case = 6
  793.             qcp_Cmd = "6/22"
  794.             Break
  795.         Case = 7
  796.             qcp_Cmd = "7/22"
  797.             Break
  798.     EndCase
  799.     GoSub qc_prefs.gc UpdateButtons
  800.  
  801. xIcon 21 157 ":icons/blank"
  802.     GadID 282
  803.     qcp_Cmd = "lank"
  804.     DoCase $qcp_Bank
  805.         Case = 6
  806.             qcp_Cmd = "6/23"
  807.             Break
  808.         Case = 7
  809.             qcp_Cmd = "7/23"
  810.             Break
  811.     EndCase
  812.     GoSub qc_prefs.gc UpdateButtons
  813.  
  814. xIcon 37 157 ":icons/blank"
  815.     GadID 283
  816.     qcp_Cmd = "lank"
  817.     DoCase $qcp_Bank
  818.         Case = 6
  819.             qcp_Cmd = "6/24"
  820.             Break
  821.         Case = 7
  822.             qcp_Cmd = "7/24"
  823.             Break
  824.     EndCase
  825.     GoSub qc_prefs.gc UpdateButtons
  826.  
  827. xIcon 53 157 ":icons/blank"
  828.     GadID 284
  829.     qcp_Cmd = "lank"
  830.     GoSub qc_prefs.gc UpdateButtons
  831.  
  832. xIcon 5 173 ":icons/blank"
  833.     GadID 291
  834.     qcp_Cmd = "lank"
  835.     DoCase $qcp_Bank
  836.         Case = 6
  837.             qcp_Cmd = "6/25"
  838.             Break
  839.     EndCase
  840.     GoSub qc_prefs.gc UpdateButtons
  841.  
  842. xIcon 21 173 ":icons/blank"
  843.     GadID 292
  844.     qcp_Cmd = "lank"
  845.     DoCase $qcp_Bank
  846.         Case = 6
  847.             qcp_Cmd = "6/26"
  848.             Break
  849.     EndCase
  850.     GoSub qc_prefs.gc UpdateButtons
  851.  
  852. xIcon 37 173 ":icons/blank"
  853.     GadID 293
  854.     qcp_Cmd = "lank"
  855.     DoCase $qcp_Bank
  856.         Case = 6
  857.             qcp_Cmd = "6/27"
  858.             Break
  859.     EndCase
  860.     GoSub qc_prefs.gc UpdateButtons
  861.  
  862. xIcon 53 173 ":icons/blank"
  863.     GadID 294
  864.     qcp_Cmd = "lank"
  865.     GoSub qc_prefs.gc UpdateButtons
  866.  
  867. xIcon 5 189 ":icons/blank"
  868.     GadID 201
  869.     qcp_Cmd = "lank"
  870.     DoCase $qcp_Bank
  871.         Case = 6
  872.             qcp_Cmd = "6/28"
  873.             Break
  874.     EndCase
  875.     GoSub qc_prefs.gc UpdateButtons
  876.  
  877. xIcon 21 189 ":icons/blank"
  878.     GadID 202
  879.     qcp_Cmd = "lank"
  880.     GoSub qc_prefs.gc UpdateButtons
  881.  
  882. xIcon 37 189 ":icons/blank"
  883.     GadID 203
  884.     qcp_Cmd = "lank"
  885.     GoSub qc_prefs.gc UpdateButtons
  886.  
  887. xIcon 53 189 ":icons/blank"
  888.     GadID 204
  889.     qcp_Cmd = "lank"
  890.     GoSub qc_prefs.gc UpdateButtons
  891.     
  892.          
  893.  
  894. xIcon 80 45 ":icons/bk1"
  895.     qcp_Bank = 1
  896.     GoSub qc_prefs.gc ClearBank
  897.     GoSub qc_prefs.gc DrawBank
  898.  
  899. xIcon 80 68 ":icons/bk2"
  900.     qcp_Bank = 2
  901.     GoSub qc_prefs.gc ClearBank
  902.     GoSub qc_prefs.gc DrawBank
  903.  
  904. xIcon 80 91 ":icons/bk3"
  905.     qcp_Bank = 3
  906.     GoSub qc_prefs.gc ClearBank
  907.     GoSub qc_prefs.gc DrawBank
  908.     
  909. xIcon 80 113 ":icons/bk4"
  910.     qcp_Bank = 4
  911.     GoSub qc_prefs.gc ClearBank
  912.     GoSub qc_prefs.gc DrawBank
  913.     
  914. xIcon 80 136 ":icons/bk5"
  915.     qcp_Bank = 5
  916.     GoSub qc_prefs.gc ClearBank
  917.     GoSub qc_prefs.gc DrawBank
  918.     
  919. xIcon 80 159 ":icons/bk6"
  920.     qcp_Bank = 6
  921.     GoSub qc_prefs.gc ClearBank
  922.     GoSub qc_prefs.gc DrawBank
  923.     
  924. xIcon 80 182 ":icons/bk7"
  925.     qcp_Bank = 7
  926.     GoSub qc_prefs.gc ClearBank
  927.     GoSub qc_prefs.gc DrawBank
  928.     
  929. xIcon 140 45 ":icons/bk8"
  930.     qcp_Bank = 8
  931.     GoSub qc_prefs.gc ClearBank
  932.     GoSub qc_prefs.gc DrawBank
  933.  
  934. xIcon 140 68 ":icons/bk9"
  935.     qcp_Bank = 9
  936.     GoSub qc_prefs.gc ClearBank
  937.     GoSub qc_prefs.gc DrawBank
  938.  
  939. xIcon 140 91 ":icons/bk10"
  940.     qcp_Bank = 10
  941.     GoSub qc_prefs.gc ClearBank
  942.     GoSub qc_prefs.gc DrawBank
  943.     
  944. xIcon 140 113 ":icons/bk11"
  945.     qcp_Bank = 11
  946.     GoSub qc_prefs.gc ClearBank
  947.     GoSub qc_prefs.gc DrawBank
  948.     
  949. xIcon 140 136 ":icons/bk12"
  950.     qcp_Bank = 12
  951.     GoSub qc_prefs.gc ClearBank
  952.     GoSub qc_prefs.gc DrawBank
  953.     
  954. xIcon 140 159 ":icons/bk13"
  955.     qcp_Bank = 13
  956.     GoSub qc_prefs.gc ClearBank
  957.     GoSub qc_prefs.gc DrawBank
  958.     
  959. xIcon 140 182 ":icons/bk14"
  960.     qcp_Bank = 14
  961.     GoSub qc_prefs.gc ClearBank
  962.     GoSub qc_prefs.gc DrawBank
  963.  
  964.  
  965.  
  966. xIcon 0 0 ":icons/blank"
  967.     GadID 1
  968.     qcp_NewButt = 1
  969.     GoSub qc_prefs.gc ChangeLight
  970.  
  971. xIcon 20 0 ":icons/blank"
  972.     GadID 2
  973.     qcp_NewButt = 2
  974.     GoSub qc_prefs.gc ChangeLight
  975.     
  976. xIcon 40 0 ":icons/blank"
  977.     GadID 3
  978.     qcp_NewButt = 3
  979.     GoSub qc_prefs.gc ChangeLight
  980.     
  981. xIcon 60 0 ":icons/blank"
  982.     GadID 4
  983.     qcp_NewButt = 4
  984.     GoSub qc_prefs.gc ChangeLight
  985.     
  986. xIcon 80 0 ":icons/blank"
  987.     GadID 5
  988.     qcp_NewButt = 5
  989.     GoSub qc_prefs.gc ChangeLight
  990.     
  991. xIcon 100 0 ":icons/blank"
  992.     GadID 6
  993.     qcp_NewButt = 6
  994.     GoSub qc_prefs.gc ChangeLight
  995.     
  996. xIcon 120 0 ":icons/blank"
  997.     GadID 7
  998.     qcp_NewButt = 7
  999.     GoSub qc_prefs.gc ChangeLight
  1000.     
  1001. xIcon 140 0 ":icons/blank"
  1002.     GadID 8
  1003.     qcp_NewButt = 8
  1004.     GoSub qc_prefs.gc ChangeLight
  1005.     
  1006. xIcon 160 0 ":icons/blank"
  1007.     GadID 9
  1008.     qcp_NewButt = 9
  1009.     GoSub qc_prefs.gc ChangeLight
  1010.     
  1011. xIcon 180 0 ":icons/blank"
  1012.     GadID 10
  1013.     qcp_NewButt = 10
  1014.     GoSub qc_prefs.gc ChangeLight
  1015.  
  1016.     
  1017.     
  1018. ; Subroutines
  1019.  
  1020. xRoutine ChangeLight    
  1021.     qcp_OldButt = 100
  1022.     Counter qcp_OldButt Inc $qcp_Button
  1023.     ChangeArg qc_prefs.gc $qcp_OldButt 5 NoFill
  1024.     qcp_OldButt = 100
  1025.     Counter qcp_OldButt Inc $qcp_NewButt
  1026.     qcp_Button = $qcp_NewButt
  1027.     ChangeArg qc_prefs.gc $qcp_OldButt 5 Fill
  1028.     Redraw qc_prefs.gc
  1029.  
  1030.     
  1031. xRoutine UpdateButtons
  1032.     ChangeIcon qc_prefs.gc $qcp_Button -1 -1 ":icons/b$qcp_Cmd"
  1033.     DoCase $qcp_Button
  1034.         Case = 1
  1035.             qcicon0 = $qcp_Cmd
  1036.             Break
  1037.         Case = 2
  1038.             qcicon1 = $qcp_Cmd
  1039.             Break
  1040.         Case = 3
  1041.             qcicon2 = $qcp_Cmd
  1042.             Break
  1043.         Case = 4
  1044.             qcicon3 = $qcp_Cmd
  1045.             Break
  1046.         Case = 5
  1047.             qcicon4 = $qcp_Cmd
  1048.             Break
  1049.         Case = 6
  1050.             qcicon5 = $qcp_Cmd
  1051.             Break
  1052.         Case = 7
  1053.             qcicon6 = $qcp_Cmd
  1054.             Break
  1055.         Case = 8
  1056.             qcicon7 = $qcp_Cmd
  1057.             Break
  1058.         Case = 9
  1059.             qcicon8 = $qcp_Cmd
  1060.             Break
  1061.         Case = 10
  1062.             qcicon9 = $qcp_Cmd
  1063.             Break
  1064.     EndCase
  1065.  
  1066.  
  1067.  
  1068. xRoutine ClearBank
  1069.     ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/blank"
  1070.     ChangeIcon qc_prefs.gc 212 -1 -1 ":icons/blank"
  1071.     ChangeIcon qc_prefs.gc 213 -1 -1 ":icons/blank"
  1072.     ChangeIcon qc_prefs.gc 214 -1 -1 ":icons/blank"
  1073.     ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/blank"
  1074.     ChangeIcon qc_prefs.gc 222 -1 -1 ":icons/blank"
  1075.     ChangeIcon qc_prefs.gc 223 -1 -1 ":icons/blank"
  1076.     ChangeIcon qc_prefs.gc 224 -1 -1 ":icons/blank"
  1077.     ChangeIcon qc_prefs.gc 231 -1 -1 ":icons/blank"
  1078.     ChangeIcon qc_prefs.gc 232 -1 -1 ":icons/blank"
  1079.     ChangeIcon qc_prefs.gc 233 -1 -1 ":icons/blank"
  1080.     ChangeIcon qc_prefs.gc 234 -1 -1 ":icons/blank"
  1081.     ChangeIcon qc_prefs.gc 241 -1 -1 ":icons/blank"
  1082.     ChangeIcon qc_prefs.gc 242 -1 -1 ":icons/blank"
  1083.     ChangeIcon qc_prefs.gc 243 -1 -1 ":icons/blank"
  1084.     ChangeIcon qc_prefs.gc 244 -1 -1 ":icons/blank"
  1085.     ChangeIcon qc_prefs.gc 251 -1 -1 ":icons/blank"
  1086.     ChangeIcon qc_prefs.gc 252 -1 -1 ":icons/blank"
  1087.     ChangeIcon qc_prefs.gc 253 -1 -1 ":icons/blank"
  1088.     ChangeIcon qc_prefs.gc 254 -1 -1 ":icons/blank"
  1089.     ChangeIcon qc_prefs.gc 261 -1 -1 ":icons/blank"
  1090.     ChangeIcon qc_prefs.gc 262 -1 -1 ":icons/blank"
  1091.     ChangeIcon qc_prefs.gc 263 -1 -1 ":icons/blank"
  1092.     ChangeIcon qc_prefs.gc 264 -1 -1 ":icons/blank"
  1093.     ChangeIcon qc_prefs.gc 271 -1 -1 ":icons/blank"
  1094.     ChangeIcon qc_prefs.gc 272 -1 -1 ":icons/blank"
  1095.     ChangeIcon qc_prefs.gc 273 -1 -1 ":icons/blank"
  1096.     ChangeIcon qc_prefs.gc 274 -1 -1 ":icons/blank"
  1097.     ChangeIcon qc_prefs.gc 281 -1 -1 ":icons/blank"
  1098.     ChangeIcon qc_prefs.gc 282 -1 -1 ":icons/blank"
  1099.     ChangeIcon qc_prefs.gc 283 -1 -1 ":icons/blank"
  1100.     ChangeIcon qc_prefs.gc 284 -1 -1 ":icons/blank"
  1101.     ChangeIcon qc_prefs.gc 291 -1 -1 ":icons/blank"
  1102.     ChangeIcon qc_prefs.gc 292 -1 -1 ":icons/blank"
  1103.     ChangeIcon qc_prefs.gc 293 -1 -1 ":icons/blank"
  1104.     ChangeIcon qc_prefs.gc 294 -1 -1 ":icons/blank"
  1105.     ChangeIcon qc_prefs.gc 201 -1 -1 ":icons/blank"
  1106.     ChangeIcon qc_prefs.gc 202 -1 -1 ":icons/blank"
  1107.     ChangeIcon qc_prefs.gc 203 -1 -1 ":icons/blank"
  1108.     ChangeIcon qc_prefs.gc 204 -1 -1 ":icons/blank"
  1109.  
  1110. xRoutine DrawBank
  1111.     DoCase $qcp_Bank
  1112.         Case = 1
  1113.             ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/b1/1"
  1114.             ChangeIcon qc_prefs.gc 212 -1 -1 ":icons/b1/2"
  1115.             ChangeIcon qc_prefs.gc 213 -1 -1 ":icons/b1/3"
  1116.             ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/b1/4"
  1117.             ChangeIcon qc_prefs.gc 222 -1 -1 ":icons/b1/5"
  1118.             ChangeIcon qc_prefs.gc 223 -1 -1 ":icons/b1/6"
  1119.             ChangeIcon qc_prefs.gc 231 -1 -1 ":icons/b1/7"
  1120.             ChangeIcon qc_prefs.gc 232 -1 -1 ":icons/b1/8"
  1121.             ChangeIcon qc_prefs.gc 233 -1 -1 ":icons/b1/9"
  1122.             Break
  1123.         Case = 2
  1124.             ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/b2/1"
  1125.             ChangeIcon qc_prefs.gc 212 -1 -1 ":icons/b2/2"
  1126.             ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/b2/3"
  1127.             ChangeIcon qc_prefs.gc 222 -1 -1 ":icons/b2/4"
  1128.             ChangeIcon qc_prefs.gc 231 -1 -1 ":icons/b2/5"
  1129.             ChangeIcon qc_prefs.gc 232 -1 -1 ":icons/b2/6"
  1130.             ChangeIcon qc_prefs.gc 241 -1 -1 ":icons/b2/7"
  1131.             ChangeIcon qc_prefs.gc 242 -1 -1 ":icons/b2/8"
  1132.             ChangeIcon qc_prefs.gc 251 -1 -1 ":icons/b2/9"
  1133.             ChangeIcon qc_prefs.gc 252 -1 -1 ":icons/b2/10"
  1134.             Break
  1135.         Case = 3
  1136.             ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/b3/1"
  1137.             ChangeIcon qc_prefs.gc 212 -1 -1 ":icons/b3/2"
  1138.             ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/b3/3"
  1139.             ChangeIcon qc_prefs.gc 222 -1 -1 ":icons/b3/4"
  1140.             ChangeIcon qc_prefs.gc 231 -1 -1 ":icons/b3/5"
  1141.             ChangeIcon qc_prefs.gc 232 -1 -1 ":icons/b3/6"
  1142.             ChangeIcon qc_prefs.gc 241 -1 -1 ":icons/b3/7"
  1143.             Break
  1144.         Case = 4
  1145.             ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/b4/1"
  1146.             ChangeIcon qc_prefs.gc 212 -1 -1 ":icons/b4/2"
  1147.             ChangeIcon qc_prefs.gc 213 -1 -1 ":icons/b4/3"
  1148.             ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/b4/4"
  1149.             ChangeIcon qc_prefs.gc 222 -1 -1 ":icons/b4/5"
  1150.             ChangeIcon qc_prefs.gc 223 -1 -1 ":icons/b4/6"
  1151.             ChangeIcon qc_prefs.gc 231 -1 -1 ":icons/b4/7"
  1152.             ChangeIcon qc_prefs.gc 232 -1 -1 ":icons/b4/8"
  1153.             ChangeIcon qc_prefs.gc 233 -1 -1 ":icons/b4/9"
  1154.             ChangeIcon qc_prefs.gc 241 -1 -1 ":icons/b4/10"
  1155.             ChangeIcon qc_prefs.gc 242 -1 -1 ":icons/b4/11"
  1156.             ChangeIcon qc_prefs.gc 243 -1 -1 ":icons/b4/12"
  1157.             ChangeIcon qc_prefs.gc 251 -1 -1 ":icons/b4/13"
  1158.             ChangeIcon qc_prefs.gc 252 -1 -1 ":icons/b4/14"
  1159.             ChangeIcon qc_prefs.gc 253 -1 -1 ":icons/b4/15"
  1160.             ChangeIcon qc_prefs.gc 261 -1 -1 ":icons/b4/16"
  1161.             ChangeIcon qc_prefs.gc 262 -1 -1 ":icons/b4/17"
  1162.             ChangeIcon qc_prefs.gc 263 -1 -1 ":icons/b4/18"
  1163.             ChangeIcon qc_prefs.gc 271 -1 -1 ":icons/b4/19"
  1164.             ChangeIcon qc_prefs.gc 272 -1 -1 ":icons/b4/20"
  1165.             Break
  1166.         Case = 5
  1167.             ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/b5/1"
  1168.             ChangeIcon qc_prefs.gc 212 -1 -1 ":icons/b5/2"
  1169.             ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/b5/3"
  1170.             ChangeIcon qc_prefs.gc 222 -1 -1 ":icons/b5/4"
  1171.             ChangeIcon qc_prefs.gc 231 -1 -1 ":icons/b5/5"
  1172.             ChangeIcon qc_prefs.gc 232 -1 -1 ":icons/b5/6"
  1173.             Break
  1174.         Case = 6
  1175.             ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/b6/1"
  1176.             ChangeIcon qc_prefs.gc 212 -1 -1 ":icons/b6/2"
  1177.             ChangeIcon qc_prefs.gc 213 -1 -1 ":icons/b6/3"
  1178.             ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/b6/4"
  1179.             ChangeIcon qc_prefs.gc 222 -1 -1 ":icons/b6/5"
  1180.             ChangeIcon qc_prefs.gc 223 -1 -1 ":icons/b6/6"
  1181.             ChangeIcon qc_prefs.gc 231 -1 -1 ":icons/b6/7"
  1182.             ChangeIcon qc_prefs.gc 232 -1 -1 ":icons/b6/8"
  1183.             ChangeIcon qc_prefs.gc 233 -1 -1 ":icons/b6/9"
  1184.             ChangeIcon qc_prefs.gc 241 -1 -1 ":icons/b6/10"
  1185.             ChangeIcon qc_prefs.gc 242 -1 -1 ":icons/b6/11"
  1186.             ChangeIcon qc_prefs.gc 243 -1 -1 ":icons/b6/12"
  1187.             ChangeIcon qc_prefs.gc 251 -1 -1 ":icons/b6/13"
  1188.             ChangeIcon qc_prefs.gc 252 -1 -1 ":icons/b6/14"
  1189.             ChangeIcon qc_prefs.gc 253 -1 -1 ":icons/b6/15"
  1190.             ChangeIcon qc_prefs.gc 261 -1 -1 ":icons/b6/16"
  1191.             ChangeIcon qc_prefs.gc 262 -1 -1 ":icons/b6/17"
  1192.             ChangeIcon qc_prefs.gc 263 -1 -1 ":icons/b6/18"
  1193.             ChangeIcon qc_prefs.gc 271 -1 -1 ":icons/b6/19"
  1194.             ChangeIcon qc_prefs.gc 272 -1 -1 ":icons/b6/20"
  1195.             ChangeIcon qc_prefs.gc 273 -1 -1 ":icons/b6/21"
  1196.             ChangeIcon qc_prefs.gc 281 -1 -1 ":icons/b6/22"
  1197.             ChangeIcon qc_prefs.gc 282 -1 -1 ":icons/b6/23"
  1198.             ChangeIcon qc_prefs.gc 283 -1 -1 ":icons/b6/24"
  1199.             ChangeIcon qc_prefs.gc 291 -1 -1 ":icons/b6/25"
  1200.             ChangeIcon qc_prefs.gc 292 -1 -1 ":icons/b6/26"
  1201.             ChangeIcon qc_prefs.gc 293 -1 -1 ":icons/b6/27"
  1202.             ChangeIcon qc_prefs.gc 201 -1 -1 ":icons/b6/28"
  1203.             Break
  1204.         Case = 7
  1205.             ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/b7/1"
  1206.             ChangeIcon qc_prefs.gc 212 -1 -1 ":icons/b7/2"
  1207.             ChangeIcon qc_prefs.gc 213 -1 -1 ":icons/b7/3"
  1208.             ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/b7/4"
  1209.             ChangeIcon qc_prefs.gc 222 -1 -1 ":icons/b7/5"
  1210.             ChangeIcon qc_prefs.gc 223 -1 -1 ":icons/b7/6"
  1211.             ChangeIcon qc_prefs.gc 231 -1 -1 ":icons/b7/7"
  1212.             ChangeIcon qc_prefs.gc 232 -1 -1 ":icons/b7/8"
  1213.             ChangeIcon qc_prefs.gc 233 -1 -1 ":icons/b7/9"
  1214.             ChangeIcon qc_prefs.gc 241 -1 -1 ":icons/b7/10"
  1215.             ChangeIcon qc_prefs.gc 242 -1 -1 ":icons/b7/11"
  1216.             ChangeIcon qc_prefs.gc 243 -1 -1 ":icons/b7/12"
  1217.             ChangeIcon qc_prefs.gc 251 -1 -1 ":icons/b7/13"
  1218.             ChangeIcon qc_prefs.gc 252 -1 -1 ":icons/b7/14"
  1219.             ChangeIcon qc_prefs.gc 253 -1 -1 ":icons/b7/15"
  1220.             ChangeIcon qc_prefs.gc 261 -1 -1 ":icons/b7/16"
  1221.             ChangeIcon qc_prefs.gc 262 -1 -1 ":icons/b7/17"
  1222.             ChangeIcon qc_prefs.gc 263 -1 -1 ":icons/b7/18"
  1223.             ChangeIcon qc_prefs.gc 271 -1 -1 ":icons/b7/19"
  1224.             ChangeIcon qc_prefs.gc 272 -1 -1 ":icons/b7/20"
  1225.             ChangeIcon qc_prefs.gc 273 -1 -1 ":icons/b7/21"
  1226.             ChangeIcon qc_prefs.gc 281 -1 -1 ":icons/b7/22"
  1227.             ChangeIcon qc_prefs.gc 282 -1 -1 ":icons/b7/23"
  1228.             ChangeIcon qc_prefs.gc 283 -1 -1 ":icons/b7/24"
  1229.             Break
  1230.         Case = 8
  1231.             ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/b8/1"
  1232.             ChangeIcon qc_prefs.gc 212 -1 -1 ":icons/b8/2"
  1233.             ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/b8/3"
  1234.             ChangeIcon qc_prefs.gc 222 -1 -1 ":icons/b8/4"
  1235.             ChangeIcon qc_prefs.gc 231 -1 -1 ":icons/b8/5"
  1236.             ChangeIcon qc_prefs.gc 232 -1 -1 ":icons/b8/6"
  1237.             ChangeIcon qc_prefs.gc 241 -1 -1 ":icons/b8/7"
  1238.             ChangeIcon qc_prefs.gc 242 -1 -1 ":icons/b8/8"
  1239.             ChangeIcon qc_prefs.gc 251 -1 -1 ":icons/b8/9"
  1240.             ChangeIcon qc_prefs.gc 252 -1 -1 ":icons/b8/10"
  1241.             Break
  1242.         Case = 9
  1243.             ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/b9/1"
  1244.             ChangeIcon qc_prefs.gc 212 -1 -1 ":icons/b9/2"
  1245.             ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/b9/3"
  1246.             ChangeIcon qc_prefs.gc 222 -1 -1 ":icons/b9/4"
  1247.             ChangeIcon qc_prefs.gc 231 -1 -1 ":icons/b9/5"
  1248.             ChangeIcon qc_prefs.gc 232 -1 -1 ":icons/b9/6"
  1249.             ChangeIcon qc_prefs.gc 241 -1 -1 ":icons/b9/7"
  1250.             ChangeIcon qc_prefs.gc 242 -1 -1 ":icons/b9/8"
  1251.             ChangeIcon qc_prefs.gc 251 -1 -1 ":icons/b9/9"
  1252.             ChangeIcon qc_prefs.gc 252 -1 -1 ":icons/b9/10"
  1253.             Break
  1254.         Case = 10
  1255.             ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/b10/1"
  1256.             ChangeIcon qc_prefs.gc 212 -1 -1 ":icons/b10/2"
  1257.             ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/b10/3"
  1258.             ChangeIcon qc_prefs.gc 222 -1 -1 ":icons/b10/4"
  1259.             ChangeIcon qc_prefs.gc 231 -1 -1 ":icons/b10/5"
  1260.             ChangeIcon qc_prefs.gc 232 -1 -1 ":icons/b10/6"
  1261.             ChangeIcon qc_prefs.gc 241 -1 -1 ":icons/b10/7"
  1262.             ChangeIcon qc_prefs.gc 242 -1 -1 ":icons/b10/8"
  1263.             ChangeIcon qc_prefs.gc 251 -1 -1 ":icons/b10/9"
  1264.             ChangeIcon qc_prefs.gc 252 -1 -1 ":icons/b10/10"
  1265.             ChangeIcon qc_prefs.gc 261 -1 -1 ":icons/b10/11"
  1266.             Break
  1267.         Case = 11
  1268.             ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/b11/1"
  1269.             ChangeIcon qc_prefs.gc 212 -1 -1 ":icons/b11/2"
  1270.             ChangeIcon qc_prefs.gc 213 -1 -1 ":icons/b11/3"
  1271.             ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/b11/4"
  1272.             ChangeIcon qc_prefs.gc 222 -1 -1 ":icons/b11/5"
  1273.             ChangeIcon qc_prefs.gc 223 -1 -1 ":icons/b11/6"
  1274.             Break
  1275.         Case = 12
  1276.             ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/b12/1"
  1277.             ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/b12/2"
  1278.             ChangeIcon qc_prefs.gc 231 -1 -1 ":icons/b12/3"
  1279.             Break
  1280.         Case = 13
  1281.             ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/b13/1"
  1282.             ChangeIcon qc_prefs.gc 212 -1 -1 ":icons/b13/2"
  1283.             ChangeIcon qc_prefs.gc 213 -1 -1 ":icons/b13/3"
  1284.             ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/b13/4"
  1285.             ChangeIcon qc_prefs.gc 222 -1 -1 ":icons/b13/5"
  1286.             ChangeIcon qc_prefs.gc 223 -1 -1 ":icons/b13/6"
  1287.             ChangeIcon qc_prefs.gc 231 -1 -1 ":icons/b13/7"
  1288.             ChangeIcon qc_prefs.gc 232 -1 -1 ":icons/b13/8"
  1289.             ChangeIcon qc_prefs.gc 233 -1 -1 ":icons/b13/9"
  1290.             ChangeIcon qc_prefs.gc 241 -1 -1 ":icons/b13/10"
  1291.             ChangeIcon qc_prefs.gc 242 -1 -1 ":icons/b13/11"
  1292.             ChangeIcon qc_prefs.gc 243 -1 -1 ":icons/b13/12"
  1293.             ChangeIcon qc_prefs.gc 251 -1 -1 ":icons/b13/13"
  1294.             ChangeIcon qc_prefs.gc 252 -1 -1 ":icons/b13/14"
  1295.             ChangeIcon qc_prefs.gc 253 -1 -1 ":icons/b13/15"
  1296.             ChangeIcon qc_prefs.gc 261 -1 -1 ":icons/b13/16"
  1297.             ChangeIcon qc_prefs.gc 262 -1 -1 ":icons/b13/17"
  1298.             
  1299.             Break
  1300.         Case = 14
  1301.             ChangeIcon qc_prefs.gc 211 -1 -1 ":icons/b14/1"
  1302.             ChangeIcon qc_prefs.gc 212 -1 -1 ":icons/b14/2"
  1303.             ChangeIcon qc_prefs.gc 213 -1 -1 ":icons/b14/3"
  1304.             ChangeIcon qc_prefs.gc 214 -1 -1 ":icons/b14/4"
  1305.             ChangeIcon qc_prefs.gc 221 -1 -1 ":icons/b14/5"
  1306.             ChangeIcon qc_prefs.gc 222 -1 -1 ":icons/b14/6"
  1307.             ChangeIcon qc_prefs.gc 223 -1 -1 ":icons/b14/7"
  1308.             ChangeIcon qc_prefs.gc 224 -1 -1 ":icons/b14/8"
  1309.             ChangeIcon qc_prefs.gc 231 -1 -1 ":icons/b14/9"
  1310.             ChangeIcon qc_prefs.gc 232 -1 -1 ":icons/b14/10"
  1311.             ChangeIcon qc_prefs.gc 233 -1 -1 ":icons/b14/11"
  1312.             ChangeIcon qc_prefs.gc 234 -1 -1 ":icons/b14/12"
  1313.             ChangeIcon qc_prefs.gc 241 -1 -1 ":icons/b14/13"
  1314.             Break                                    
  1315.     EndCase
  1316.     Redraw qc_prefs.gc
  1317.  
  1318.  
  1319.